(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     49239,       1660]
NotebookOptionsPosition[     44349,       1491]
NotebookOutlinePosition[     44687,       1506]
CellTagsIndexPosition[     44644,       1503]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["triangle", "Section",
 CellChangeTimes->{{3.547636440625538*^9, 3.5476364594532633`*^9}}],

Cell[BoxData[
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.547637053117177*^9, 3.547637053120887*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1", "=", 
   RowBox[{"1", "-", "\[Xi]", "-", "\[Eta]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2", "=", "\[Xi]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n3", "=", "\[Eta]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5476354351552267`*^9, 3.547635465678537*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{
    RowBox[{"n1", " ", "X1"}], "+", 
    RowBox[{"n2", " ", "X2"}], "+", 
    RowBox[{"n3", " ", "X3"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Y", "=", 
   RowBox[{
    RowBox[{"n1", " ", "Y1"}], "+", 
    RowBox[{"n2", " ", "Y2"}], "+", 
    RowBox[{"n3", " ", "Y3"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547635467827388*^9, 3.5476354842158203`*^9}, {
  3.547635527922091*^9, 3.547635547991365*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Xc", "=", 
   FractionBox[
    RowBox[{"X1", "+", "X2", "+", "X3"}], "3"]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Yc", "=", 
   FractionBox[
    RowBox[{"Y1", "+", "Y2", "+", "Y3"}], "3"]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5476354888764563`*^9, 3.5476355136474667`*^9}, {
  3.5476355542061157`*^9, 3.547635568543582*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"X", "-", "Xc"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"Y", "-", "Yc"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547635518288041*^9, 3.54763552547864*^9}, {
  3.547635571990061*^9, 3.547635580418309*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"jac", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"x", ",", "\[Xi]"}], "]"}], ",", 
       RowBox[{"D", "[", 
        RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"y", ",", "\[Xi]"}], "]"}], ",", 
       RowBox[{"D", "[", 
        RowBox[{"y", ",", "\[Eta]"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Det", "[", "jac", "]"}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.547635628773698*^9, 3.547635634643364*^9}, {
  3.547635670919116*^9, 3.5476356936910973`*^9}, {3.547635723831008*^9, 
  3.547635735863635*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"X3", " ", 
   RowBox[{"(", 
    RowBox[{"Y1", "-", "Y2"}], ")"}]}], "+", 
  RowBox[{"X1", " ", 
   RowBox[{"(", 
    RowBox[{"Y2", "-", "Y3"}], ")"}]}], "+", 
  RowBox[{"X2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.547635731841717*^9, 3.54763573633148*^9}, 
   3.547637060944191*^9, 3.547666774868929*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"int", "[", "f_", "]"}], ":=", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{"f", " ", 
        RowBox[{"Det", "[", "jac", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Eta]", ",", "0", ",", 
         RowBox[{"1", "-", "\[Xi]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.547635776819396*^9, 3.547635827188252*^9}, {
  3.547635891670855*^9, 3.5476358966931477`*^9}, {3.5476365222285433`*^9, 
  3.5476365227473288`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"int", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.5476358284360123`*^9, 3.54763583000801*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.547635833662526*^9, 3.547635901642763*^9, 
  3.547636525033413*^9, 3.54763706308364*^9, 3.5476667783008623`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"int", "[", "y", "]"}]], "Input",
 CellChangeTimes->{{3.547635903687685*^9, 3.547635905398508*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.547635906200109*^9, 3.547636525821596*^9, 
  3.5476370641109657`*^9, 3.547666779016197*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{
   RowBox[{"int", "[", "1", "]"}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.5476359081413794`*^9, 3.547635914719283*^9}, {
  3.547666819899178*^9, 3.547666820590652*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X3", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y2"}], ")"}]}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y3"}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.547635909915531*^9, 3.5476359151201267`*^9}, 
   3.54763652639226*^9, 3.5476370649304028`*^9, 3.5476667797420177`*^9, 
   3.547666821604927*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", 
   SuperscriptBox["x", "2"], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5476358422788*^9, 3.547635859541184*^9}, {
  3.547635930553893*^9, 3.547635943217168*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "36"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["X1", "2"], "+", 
    SuperscriptBox["X2", "2"], "-", 
    RowBox[{"X2", " ", "X3"}], "+", 
    SuperscriptBox["X3", "2"], "-", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{"X2", "+", "X3"}], ")"}]}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X3", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y2"}], ")"}]}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y3"}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.547635842693022*^9, 3.547635859912938*^9}, {
   3.5476359387469*^9, 3.5476359437716713`*^9}, 3.547636527532112*^9, 
   3.547637067766437*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", 
   RowBox[{"x", " ", "y"}], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.547635951998322*^9, 3.547635953407937*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "72"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X3", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y2"}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y3"}], ")"}]}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y2"}], "+", "Y3"}], ")"}]}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X3", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "+", "Y2", "-", 
       RowBox[{"2", " ", "Y3"}]}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", 
       RowBox[{"2", " ", "Y2"}], "+", "Y3"}], ")"}]}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "Y1"}], "+", "Y2", "+", "Y3"}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.547635958187503*^9, 3.547636529343255*^9, 
  3.547637076345193*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", 
   SuperscriptBox["y", "2"], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.547635962462743*^9, 3.5476359627860317`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "36"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X3", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y2"}], ")"}]}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y3"}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["Y1", "2"], "+", 
    SuperscriptBox["Y2", "2"], "-", 
    RowBox[{"Y2", " ", "Y3"}], "+", 
    SuperscriptBox["Y3", "2"], "-", 
    RowBox[{"Y1", " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "+", "Y3"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.547635964555331*^9, 3.547636531071496*^9, 
  3.547637137257234*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"int", "[", 
    SuperscriptBox["X", "2"], "]"}], "A"], "//", "Simplify"}]], "Input",
 CellChangeTimes->{3.5476361029891367`*^9, 3.547636470228261*^9, 
  3.547666894712731*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["X1", "2"], "+", 
    SuperscriptBox["X2", "2"], "+", 
    RowBox[{"X2", " ", "X3"}], "+", 
    SuperscriptBox["X3", "2"], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{"X2", "+", "X3"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.547666895322277*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"int", "[", 
    SuperscriptBox["Y", "2"], "]"}], "A"], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.547666901758819*^9, 3.54766690213888*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["Y1", "2"], "+", 
    SuperscriptBox["Y2", "2"], "+", 
    RowBox[{"Y2", " ", "Y3"}], "+", 
    SuperscriptBox["Y3", "2"], "+", 
    RowBox[{"Y1", " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "+", "Y3"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.547666903506181*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"int", "[", 
    RowBox[{"X", " ", "Y"}], "]"}], "A"], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.54766691820267*^9, 3.547666919675459*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "12"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "Y1"}], "+", "Y2", "+", "Y3"}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "+", 
       RowBox[{"2", " ", "Y2"}], "+", "Y3"}], ")"}]}], "+", 
    RowBox[{"X3", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "+", "Y2", "+", 
       RowBox[{"2", " ", "Y3"}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.54766692357705*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["quadrilateral", "Section",
 CellChangeTimes->{{3.54763660027605*^9, 3.547636602366555*^9}}],

Cell[BoxData[
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1", "=", 
   RowBox[{
    FractionBox["1", "4"], 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Xi]"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2", "=", 
   RowBox[{
    FractionBox["1", "4"], 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Xi]"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n3", "=", 
   RowBox[{
    FractionBox["1", "4"], 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Xi]"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n4", "=", 
   RowBox[{
    FractionBox["1", "4"], 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Xi]"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547636603148274*^9, 3.547636670269167*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{
    RowBox[{"n1", " ", "X1"}], "+", 
    RowBox[{"n2", " ", "X2"}], "+", 
    RowBox[{"n3", " ", "X3"}], "+", 
    RowBox[{"n4", " ", "X4"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Y", "=", 
   RowBox[{
    RowBox[{"n1", " ", "Y1"}], "+", 
    RowBox[{"n2", " ", "Y2"}], "+", 
    RowBox[{"n3", " ", "Y3"}], "+", 
    RowBox[{"n4", " ", "Y4"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5476366969968977`*^9, 3.547636703016646*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"X", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Xi]", "\[Rule]", "0"}], ",", 
    RowBox[{"\[Eta]", "\[Rule]", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.547666129451744*^9, 3.547666138979124*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["X1", "4"], "+", 
  FractionBox["X2", "4"], "+", 
  FractionBox["X3", "4"], "+", 
  FractionBox["X4", "4"]}]], "Output",
 CellChangeTimes->{3.547666139558454*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Xc", "=", 
   FractionBox[
    RowBox[{"X1", "+", "X2", "+", "X3", "+", "X4"}], "4"]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Yc", "=", 
   FractionBox[
    RowBox[{"Y1", "+", "Y2", "+", "Y3", "+", "Y4"}], "4"]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.547636747529043*^9, 3.547636753102372*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"X", "-", "Xc"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"Y", "-", "Yc"}]}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"jac", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"x", ",", "\[Xi]"}], "]"}], ",", 
       RowBox[{"D", "[", 
        RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"y", ",", "\[Xi]"}], "]"}], ",", 
       RowBox[{"D", "[", 
        RowBox[{"y", ",", "\[Eta]"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Det", "[", "jac", "]"}], "//", "Simplify"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "8"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X1", " ", "Y2"}], "-", 
    RowBox[{"X3", " ", "Y2"}], "-", 
    RowBox[{"X1", " ", "Y4"}], "+", 
    RowBox[{"X3", " ", "Y4"}], "-", 
    RowBox[{"X3", " ", "Y1", " ", "\[Eta]"}], "-", 
    RowBox[{"X1", " ", "Y2", " ", "\[Eta]"}], "+", 
    RowBox[{"X1", " ", "Y3", " ", "\[Eta]"}], "+", 
    RowBox[{"X3", " ", "Y4", " ", "\[Eta]"}], "+", 
    RowBox[{"X3", " ", "Y1", " ", "\[Xi]"}], "-", 
    RowBox[{"X3", " ", "Y2", " ", "\[Xi]"}], "-", 
    RowBox[{"X1", " ", "Y3", " ", "\[Xi]"}], "+", 
    RowBox[{"X1", " ", "Y4", " ", "\[Xi]"}], "+", 
    RowBox[{"X4", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", 
       RowBox[{"Y3", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "-", 
       RowBox[{"Y1", " ", "\[Xi]"}], "+", 
       RowBox[{"Y2", " ", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "+", "\[Xi]"}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Y1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", 
       RowBox[{"Y3", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Xi]"}], ")"}]}], "-", 
       RowBox[{"Y4", " ", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "+", "\[Xi]"}], ")"}]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.547636778717108*^9, 3.547637186707404*^9, 
  3.547664595813685*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"int", "[", "f_", "]"}], ":=", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"f", " ", 
      RowBox[{"Det", "[", "jac", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Xi]", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Eta]", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.54763679520294*^9, 3.547636812700405*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", "1", "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.547637192744409*^9, 3.547637203719936*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X4", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y3"}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"X1", "-", "X3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y4"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.5476371977607718`*^9, 3.547637205379665*^9}, 
   3.5476646014731073`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cx", "=", 
  RowBox[{
   RowBox[{"int", "[", "x", "]"}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.547636880188184*^9, 3.547636882049614*^9}, {
  3.547638012465208*^9, 3.5476380132093287`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "24"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "3"}], " ", "X3", " ", "X4", " ", "Y1"}], "+", 
    RowBox[{
     SuperscriptBox["X4", "2"], " ", "Y1"}], "-", 
    RowBox[{
     SuperscriptBox["X3", "2"], " ", "Y2"}], "+", 
    RowBox[{"3", " ", "X3", " ", "X4", " ", "Y2"}], "-", 
    RowBox[{"X3", " ", "X4", " ", "Y3"}], "-", 
    RowBox[{
     SuperscriptBox["X4", "2"], " ", "Y3"}], "+", 
    RowBox[{
     SuperscriptBox["X2", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}], "+", 
    RowBox[{"X2", " ", "X3", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", " ", "Y1"}], "-", "Y2", "+", "Y3", "-", 
       RowBox[{"3", " ", "Y4"}]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["X1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y4"}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["X3", "2"], " ", "Y4"}], "+", 
    RowBox[{"X3", " ", "X4", " ", "Y4"}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"X4", " ", 
        RowBox[{"(", 
         RowBox[{"Y1", "-", 
          RowBox[{"3", " ", "Y2"}], "+", 
          RowBox[{"3", " ", "Y3"}], "-", "Y4"}], ")"}]}], "+", 
       RowBox[{"X2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "Y1"}], "+", "Y2", "-", 
          RowBox[{"3", " ", "Y3"}], "+", 
          RowBox[{"3", " ", "Y4"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output",\

 CellChangeTimes->{3.547636854045773*^9, 3.547636905991425*^9, 
  3.5476373233012733`*^9, 3.547638044415362*^9, 3.5476646429395037`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cy", "=", 
  RowBox[{
   RowBox[{"int", "[", "y", "]"}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.54763734357327*^9, 3.547637343868039*^9}, {
  3.5476380180227833`*^9, 3.547638018728712*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "24"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "X2"}], " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "+", "Y2", "+", "Y3", "-", 
       RowBox[{"3", " ", "Y4"}]}], ")"}]}], "+", 
    RowBox[{"X4", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", 
       RowBox[{"3", " ", "Y2"}], "+", "Y3", "+", "Y4"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y4"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"X3", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", "Y1"}], "-", "Y2", "-", "Y3", "-", "Y4"}], 
         ")"}]}], "+", 
       RowBox[{"X1", " ", 
        RowBox[{"(", 
         RowBox[{"Y1", "+", "Y2", "-", 
          RowBox[{"3", " ", "Y3"}], "+", "Y4"}], ")"}]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.547637371740327*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", 
   RowBox[{"x", " ", "y"}], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5476374057519817`*^9, 3.547637411193531*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "96"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "X3"}], " ", "X4", " ", 
     SuperscriptBox["Y1", "2"]}], "-", 
    RowBox[{
     SuperscriptBox["X4", "2"], " ", 
     SuperscriptBox["Y1", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["X3", "2"], " ", "Y1", " ", "Y2"}], "-", 
    RowBox[{
     SuperscriptBox["X4", "2"], " ", "Y1", " ", "Y2"}], "+", 
    RowBox[{
     SuperscriptBox["X3", "2"], " ", 
     SuperscriptBox["Y2", "2"]}], "+", 
    RowBox[{"X3", " ", "X4", " ", 
     SuperscriptBox["Y2", "2"]}], "+", 
    RowBox[{"4", " ", "X3", " ", "X4", " ", "Y1", " ", "Y3"}], "-", 
    RowBox[{"3", " ", 
     SuperscriptBox["X3", "2"], " ", "Y2", " ", "Y3"}], "+", 
    RowBox[{"2", " ", "X3", " ", "X4", " ", "Y2", " ", "Y3"}], "+", 
    RowBox[{
     SuperscriptBox["X4", "2"], " ", "Y2", " ", "Y3"}], "-", 
    RowBox[{"3", " ", "X3", " ", "X4", " ", 
     SuperscriptBox["Y3", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["X4", "2"], " ", 
     SuperscriptBox["Y3", "2"]}], "-", 
    RowBox[{
     SuperscriptBox["X3", "2"], " ", "Y1", " ", "Y4"}], "-", 
    RowBox[{"2", " ", "X3", " ", "X4", " ", "Y1", " ", "Y4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["X4", "2"], " ", "Y1", " ", "Y4"}], "-", 
    RowBox[{"4", " ", "X3", " ", "X4", " ", "Y2", " ", "Y4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["X3", "2"], " ", "Y3", " ", "Y4"}], "-", 
    RowBox[{"3", " ", 
     SuperscriptBox["X4", "2"], " ", "Y3", " ", "Y4"}], "-", 
    RowBox[{
     SuperscriptBox["X3", "2"], " ", 
     SuperscriptBox["Y4", "2"]}], "+", 
    RowBox[{"3", " ", "X3", " ", "X4", " ", 
     SuperscriptBox["Y4", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["X2", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", 
       RowBox[{"3", " ", "Y2"}], "+", "Y3", "+", "Y4"}], ")"}]}], "-", 
    RowBox[{
     SuperscriptBox["X1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y4"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", "Y1"}], "+", "Y2", "+", "Y3", "+", "Y4"}], 
      ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "X4", " ", 
        RowBox[{"(", 
         RowBox[{"Y1", "-", "Y3"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"Y2", "-", "Y4"}], ")"}]}], "+", 
       RowBox[{"X3", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["Y1", "2"], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox["Y2", "2"]}], "+", 
          RowBox[{"2", " ", "Y1", " ", 
           RowBox[{"(", 
            RowBox[{"Y2", "-", 
             RowBox[{"2", " ", "Y3"}]}], ")"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["Y3", "2"]}], "+", 
          RowBox[{"4", " ", "Y2", " ", "Y4"}], "-", 
          RowBox[{"2", " ", "Y3", " ", "Y4"}], "-", 
          SuperscriptBox["Y4", "2"]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "X3", " ", 
        RowBox[{"(", 
         RowBox[{"Y1", "-", "Y3"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"Y2", "-", "Y4"}], ")"}]}], "+", 
       RowBox[{"X4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["Y1", "2"]}], "-", 
          SuperscriptBox["Y2", "2"], "+", 
          SuperscriptBox["Y3", "2"], "-", 
          RowBox[{"2", " ", "Y1", " ", 
           RowBox[{"(", 
            RowBox[{"Y2", "+", 
             RowBox[{"2", " ", "Y3"}]}], ")"}]}], "+", 
          RowBox[{"4", " ", "Y2", " ", "Y4"}], "+", 
          RowBox[{"2", " ", "Y3", " ", "Y4"}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox["Y4", "2"]}]}], ")"}]}], "+", 
       RowBox[{"X2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", 
           SuperscriptBox["Y1", "2"]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["Y2", "2"]}], "-", 
          SuperscriptBox["Y3", "2"], "+", 
          SuperscriptBox["Y4", "2"], "+", 
          RowBox[{"2", " ", "Y1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "Y3"}], "+", "Y4"}], ")"}]}], "-", 
          RowBox[{"2", " ", "Y2", " ", 
           RowBox[{"(", 
            RowBox[{"Y3", "+", 
             RowBox[{"2", " ", "Y4"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.5476375122603397`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", 
   SuperscriptBox["x", "2"], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.547637595544273*^9, 3.547637600953529*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "96"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"3", " ", 
     SuperscriptBox["X1", "2"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["X2", "2"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["X3", "2"]}], "-", 
    RowBox[{"2", " ", "X3", " ", "X4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["X4", "2"]}], "-", 
    RowBox[{"2", " ", "X2", " ", 
     RowBox[{"(", 
      RowBox[{"X3", "+", "X4"}], ")"}]}], "-", 
    RowBox[{"2", " ", "X1", " ", 
     RowBox[{"(", 
      RowBox[{"X2", "+", "X3", "+", "X4"}], ")"}]}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X4", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y3"}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"X1", "-", "X3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y4"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5476376844239883`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", 
   SuperscriptBox["y", "2"], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.54763686140866*^9, 3.54763687651982*^9}, {
  3.5476377364280024`*^9, 3.547637741891445*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "96"]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{"Y1", "-", "Y3"}], ")"}]}], "+", 
    RowBox[{"X4", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"X1", "-", "X3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y4"}], ")"}]}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"3", " ", 
     SuperscriptBox["Y1", "2"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["Y2", "2"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["Y3", "2"]}], "-", 
    RowBox[{"2", " ", "Y3", " ", "Y4"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["Y4", "2"]}], "-", 
    RowBox[{"2", " ", "Y2", " ", 
     RowBox[{"(", 
      RowBox[{"Y3", "+", "Y4"}], ")"}]}], "-", 
    RowBox[{"2", " ", "Y1", " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "+", "Y3", "+", "Y4"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.547637823472806*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Cx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", 
     RowBox[{"-", "1"}]}], ",", 
    RowBox[{"Y1", "\[Rule]", 
     RowBox[{"-", "1"}]}], ",", 
    RowBox[{"X2", "\[Rule]", "1"}], ",", 
    RowBox[{"Y2", "\[Rule]", 
     RowBox[{"-", "1"}]}], ",", 
    RowBox[{"X3", "\[Rule]", "1"}], ",", 
    RowBox[{"Y3", "\[Rule]", "1"}], ",", 
    RowBox[{"X4", "\[Rule]", 
     RowBox[{"-", "1"}]}], ",", 
    RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Det", "[", "jac", "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", 
     RowBox[{"-", "1"}]}], ",", 
    RowBox[{"Y1", "\[Rule]", 
     RowBox[{"-", "1"}]}], ",", 
    RowBox[{"X2", "\[Rule]", "1"}], ",", 
    RowBox[{"Y2", "\[Rule]", 
     RowBox[{"-", "1"}]}], ",", 
    RowBox[{"X3", "\[Rule]", "1"}], ",", 
    RowBox[{"Y3", "\[Rule]", "1"}], ",", 
    RowBox[{"X4", "\[Rule]", 
     RowBox[{"-", "1"}]}], ",", 
    RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.547636917045555*^9, 3.5476369170966063`*^9}, {
  3.5476380605472116`*^9, 3.547638113865118*^9}, {3.547666181989884*^9, 
  3.547666187850307*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.547638114313807*^9, 3.547664657252199*^9, {3.547666183105644*^9, 
   3.547666188535676*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.547638114313807*^9, 3.547664657252199*^9, {3.547666183105644*^9, 
   3.547666188538373*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Cx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", "0"}], ",", 
    RowBox[{"Y1", "\[Rule]", "0"}], ",", 
    RowBox[{"X2", "\[Rule]", "1"}], ",", 
    RowBox[{"Y2", "\[Rule]", "0"}], ",", " ", 
    RowBox[{"X3", "\[Rule]", "2"}], ",", 
    RowBox[{"Y3", "\[Rule]", "1"}], ",", 
    RowBox[{"X4", "\[Rule]", "0"}], ",", 
    RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Det", "[", "jac", "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", "0"}], ",", 
    RowBox[{"Y1", "\[Rule]", "0"}], ",", 
    RowBox[{"X2", "\[Rule]", "1"}], ",", 
    RowBox[{"Y2", "\[Rule]", "0"}], ",", " ", 
    RowBox[{"X3", "\[Rule]", "2"}], ",", 
    RowBox[{"Y3", "\[Rule]", "1"}], ",", 
    RowBox[{"X4", "\[Rule]", "0"}], ",", 
    RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.547638118311331*^9, 3.547638197115093*^9}, {
  3.547664683335033*^9, 3.547664684704274*^9}, {3.547666194445591*^9, 
  3.547666204704825*^9}}],

Cell[BoxData[
 FractionBox["1", "24"]], "Output",
 CellChangeTimes->{{3.547638129519175*^9, 3.5476381980462112`*^9}, {
   3.547664658101451*^9, 3.547664685254241*^9}, 3.547666205285376*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["3", "8"], "+", 
  FractionBox["\[Eta]", "8"]}]], "Output",
 CellChangeTimes->{{3.547638129519175*^9, 3.5476381980462112`*^9}, {
   3.547664658101451*^9, 3.547664685254241*^9}, 3.547666205288127*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Cx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", "1"}], ",", 
    RowBox[{"Y1", "\[Rule]", "1"}], ",", 
    RowBox[{"X2", "\[Rule]", "3"}], ",", 
    RowBox[{"Y2", "\[Rule]", "2"}], ",", 
    RowBox[{"X3", "\[Rule]", "4"}], ",", 
    RowBox[{"Y3", "\[Rule]", "4"}], ",", 
    RowBox[{"X4", "\[Rule]", "2"}], ",", 
    RowBox[{"Y4", "\[Rule]", "3"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Det", "[", "jac", "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", "1"}], ",", 
    RowBox[{"Y1", "\[Rule]", "1"}], ",", 
    RowBox[{"X2", "\[Rule]", "3"}], ",", 
    RowBox[{"Y2", "\[Rule]", "2"}], ",", 
    RowBox[{"X3", "\[Rule]", "4"}], ",", 
    RowBox[{"Y3", "\[Rule]", "4"}], ",", 
    RowBox[{"X4", "\[Rule]", "2"}], ",", 
    RowBox[{"Y4", "\[Rule]", "3"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.5476646313287067`*^9, 3.5476646482054863`*^9}, {
  3.547666210434374*^9, 3.54766622143541*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.547664658923263*^9, 3.5476662220536757`*^9}],

Cell[BoxData[
 FractionBox["3", "4"]], "Output",
 CellChangeTimes->{3.547664658923263*^9, 3.547666222057105*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Cx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", "0"}], ",", 
    RowBox[{"Y1", "\[Rule]", "0"}], ",", 
    RowBox[{"X2", "\[Rule]", "1"}], ",", 
    RowBox[{"Y2", "\[Rule]", "0"}], ",", 
    RowBox[{"X3", "\[Rule]", "2"}], ",", 
    RowBox[{"Y3", "\[Rule]", "2"}], ",", 
    RowBox[{"X4", "\[Rule]", "0"}], ",", 
    RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Det", "[", "jac", "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", "0"}], ",", 
    RowBox[{"Y1", "\[Rule]", "0"}], ",", 
    RowBox[{"X2", "\[Rule]", "1"}], ",", 
    RowBox[{"Y2", "\[Rule]", "0"}], ",", 
    RowBox[{"X3", "\[Rule]", "2"}], ",", 
    RowBox[{"Y3", "\[Rule]", "2"}], ",", 
    RowBox[{"X4", "\[Rule]", "0"}], ",", 
    RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.5476395469942713`*^9, 3.547639560949381*^9}, {
  3.547666224972274*^9, 3.547666232962739*^9}}],

Cell[BoxData[
 FractionBox["1", "6"]], "Output",
 CellChangeTimes->{3.5476395613553343`*^9, 3.5476662335389214`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], "+", 
  FractionBox["\[Eta]", "8"], "+", 
  FractionBox["\[Xi]", "8"]}]], "Output",
 CellChangeTimes->{3.5476395613553343`*^9, 3.547666233543676*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"X1", "\[Rule]", "0"}], ",", 
    RowBox[{"Y1", "\[Rule]", "0"}], ",", 
    RowBox[{"X2", "\[Rule]", "2"}], ",", 
    RowBox[{"Y2", "\[Rule]", "0"}], ",", 
    RowBox[{"X3", "\[Rule]", 
     RowBox[{
      FractionBox["3", "2"], "+", 
      FractionBox["1", "10"]}]}], ",", 
    RowBox[{"Y3", "\[Rule]", "1"}], ",", 
    RowBox[{"X4", "\[Rule]", 
     FractionBox["1", "2"]}], ",", 
    RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.547664943106105*^9, 3.54766497997746*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["3", "800"]}]], "Output",
 CellChangeTimes->{{3.547664957575204*^9, 3.5476649803156424`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", "X", "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5476395806046143`*^9, 3.547639582534148*^9}, {
  3.547639670813661*^9, 3.547639674723535*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["X4", "2"], " ", "Y1"}], "-", 
    RowBox[{
     SuperscriptBox["X3", "2"], " ", "Y2"}], "-", 
    RowBox[{"X3", " ", "X4", " ", "Y3"}], "-", 
    RowBox[{
     SuperscriptBox["X4", "2"], " ", "Y3"}], "+", 
    RowBox[{
     SuperscriptBox["X2", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y1"}], "+", "Y3"}], ")"}]}], "+", 
    RowBox[{"X2", " ", "X3", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Y2"}], "+", "Y3"}], ")"}]}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"X2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "Y1"}], "+", "Y2"}], ")"}]}], "+", 
       RowBox[{"X4", " ", 
        RowBox[{"(", 
         RowBox[{"Y1", "-", "Y4"}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["X1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"Y2", "-", "Y4"}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["X3", "2"], " ", "Y4"}], "+", 
    RowBox[{"X3", " ", "X4", " ", "Y4"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.54763961452135*^9, 3.547639702127527*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["X"], "Input",
 CellChangeTimes->{{3.547640053598928*^9, 3.547640085555888*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "4"], " ", "X1", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Eta]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Xi]"}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", "X4", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Xi]"}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", "X2", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Eta]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Xi]"}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", "X3", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Xi]"}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.5476400555369596`*^9, 3.547640107560116*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Xl", "=", 
  RowBox[{
   RowBox[{"X", "/.", 
    RowBox[{"{", 
     RowBox[{"\[Xi]", "\[Rule]", 
      RowBox[{"2", "\[Eta]"}]}], "}"}]}], "//", 
   "Simplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"Yl", "=", 
  RowBox[{
   RowBox[{"Y", "/.", 
    RowBox[{"{", 
     RowBox[{"\[Xi]", "\[Rule]", 
      RowBox[{"2", "\[Eta]"}]}], "}"}]}], "//", "Simplify"}]}]}], "Input",
 CellChangeTimes->{{3.5476401258022127`*^9, 3.5476401634766893`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"X3", "+", "X4", "+", 
       RowBox[{"2", " ", "X3", " ", "\[Eta]"}], "-", 
       RowBox[{"2", " ", "X4", " ", "\[Eta]"}]}], ")"}]}], "+", 
    RowBox[{"X2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Eta]", "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"]}]}], ")"}]}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"3", " ", "\[Eta]"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.5476401488145857`*^9, 3.547640163807651*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"Y3", "+", "Y4", "+", 
       RowBox[{"2", " ", "Y3", " ", "\[Eta]"}], "-", 
       RowBox[{"2", " ", "Y4", " ", "\[Eta]"}]}], ")"}]}], "+", 
    RowBox[{"Y2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Eta]", "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"]}]}], ")"}]}], "+", 
    RowBox[{"Y1", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"3", " ", "\[Eta]"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.5476401488145857`*^9, 3.547640163811872*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Xl1", "=", 
  RowBox[{
   RowBox[{"Xl", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"X1", "\[Rule]", "0"}], ",", 
      RowBox[{"Y1", "\[Rule]", "0"}], ",", 
      RowBox[{"X2", "\[Rule]", "1"}], ",", 
      RowBox[{"Y2", "\[Rule]", "0"}], ",", 
      RowBox[{"X3", "\[Rule]", "2"}], ",", 
      RowBox[{"Y3", "\[Rule]", "2"}], ",", 
      RowBox[{"X4", "\[Rule]", "0"}], ",", 
      RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}], "//", 
   "Simplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"Yl1", "=", 
  RowBox[{
   RowBox[{"Yl", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"X1", "\[Rule]", "0"}], ",", 
      RowBox[{"Y1", "\[Rule]", "0"}], ",", 
      RowBox[{"X2", "\[Rule]", "1"}], ",", 
      RowBox[{"Y2", "\[Rule]", "0"}], ",", 
      RowBox[{"X3", "\[Rule]", "2"}], ",", 
      RowBox[{"Y3", "\[Rule]", "2"}], ",", 
      RowBox[{"X4", "\[Rule]", "0"}], ",", 
      RowBox[{"Y4", "\[Rule]", "1"}]}], "}"}]}], "//", 
   "Simplify"}]}]}], "Input",
 CellChangeTimes->{{3.547640254504182*^9, 3.5476403039325314`*^9}, {
  3.547640655105692*^9, 3.5476406598528147`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"3", "+", 
    RowBox[{"7", " ", "\[Eta]"}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["\[Eta]", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.5476402805852222`*^9, 3.547640304913064*^9}, 
   3.54764066023622*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"3", "+", 
    RowBox[{"2", " ", "\[Eta]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.5476402805852222`*^9, 3.547640304913064*^9}, 
   3.547640660241311*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["quadratic line", "Section",
 CellChangeTimes->{{3.547663842191052*^9, 3.547663844591497*^9}}],

Cell[BoxData[
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1", "=", 
   FractionBox[
    RowBox[{"\[Xi]", 
     RowBox[{"(", 
      RowBox[{"\[Xi]", "-", "1"}], ")"}]}], "2"]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2", "=", 
   RowBox[{"1", "-", 
    SuperscriptBox["\[Xi]", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n3", "=", 
   FractionBox[
    RowBox[{"\[Xi]", 
     RowBox[{"(", 
      RowBox[{"\[Xi]", "+", "1"}], ")"}]}], "2"]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547663854922597*^9, 3.547663890399262*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{
    RowBox[{"n1", " ", "X1"}], "+", 
    RowBox[{"n2", " ", "X2"}], "+", 
    RowBox[{"n3", " ", "X3"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547663893040821*^9, 3.5476638933520927`*^9}, {
  3.547663936754311*^9, 3.547663967104019*^9}, {3.5476640295162354`*^9, 
  3.547664029698062*^9}, {3.547664126317672*^9, 3.547664131797624*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Xc", "=", 
   FractionBox[
    RowBox[{"X1", "+", "X2", "+", "X3"}], "3"]}], ";"}]], "Input",
 CellChangeTimes->{{3.547663971003124*^9, 3.547663992167589*^9}, {
  3.547664033344266*^9, 3.547664035310251*^9}, {3.54766413518604*^9, 
  3.547664137071652*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"X", "-", "Xc"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547663993965708*^9, 3.5476639990198298`*^9}, {
  3.547664139519989*^9, 3.5476641407814903`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"jac", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"x", ",", "\[Xi]"}], "]"}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.547664017662492*^9, 3.547664046341044*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"X3", "-", 
    RowBox[{"4", " ", "X2", " ", "\[Xi]"}], "+", 
    RowBox[{"2", " ", "X3", " ", "\[Xi]"}], "+", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.547664039328429*^9, 3.5476640467699966`*^9}, {
  3.547664142282154*^9, 3.547664154200902*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"int", "[", "f_", "]"}], ":=", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"f", " ", "jac"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Xi]", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547664065640727*^9, 3.5476640858733387`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"int", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.54766407054959*^9, 3.5476640715903997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "X1"}], "+", "X3"}]], "Output",
 CellChangeTimes->{{3.547664072018046*^9, 3.547664087517867*^9}, 
   3.54766416146484*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"int", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.547664091759886*^9, 3.5476640938777847`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "6"]}], " ", 
  RowBox[{"(", 
   RowBox[{"X1", "-", "X3"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"X1", "-", 
    RowBox[{"2", " ", "X2"}], "+", "X3"}], ")"}]}]], "Output",
 CellChangeTimes->{3.547664094705366*^9, 3.5476641633662357`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"int", "[", 
  SuperscriptBox["x", "2"], "]"}]], "Input",
 CellChangeTimes->{{3.547664101799554*^9, 3.5476641055111723`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "9"]}], " ", 
  RowBox[{"(", 
   RowBox[{"X1", "-", "X3"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["X1", "2"], "+", 
    SuperscriptBox["X2", "2"], "-", 
    RowBox[{"X2", " ", "X3"}], "+", 
    SuperscriptBox["X3", "2"], "-", 
    RowBox[{"X1", " ", 
     RowBox[{"(", 
      RowBox[{"X2", "+", "X3"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.547664105900828*^9, 3.547664168587612*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{740, 599},
WindowMargins->{{149, Automatic}, {Automatic, 24}},
FrontEndVersion->"8.0 for Linux x86 (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 95, 1, 74, "Section"],
Cell[677, 25, 140, 2, 30, "Input"],
Cell[820, 29, 328, 8, 69, "Input"],
Cell[1151, 39, 484, 14, 50, "Input"],
Cell[1638, 55, 383, 11, 98, "Input"],
Cell[2024, 68, 301, 8, 50, "Input"],
Cell[CellGroupData[{
Cell[2350, 80, 751, 22, 50, "Input"],
Cell[3104, 104, 419, 13, 30, "Output"]
}, Open  ]],
Cell[3538, 120, 639, 18, 30, "Input"],
Cell[CellGroupData[{
Cell[4202, 142, 123, 2, 30, "Input"],
Cell[4328, 146, 162, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4527, 153, 122, 2, 30, "Input"],
Cell[4652, 157, 141, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4830, 164, 228, 5, 30, "Input"],
Cell[5061, 171, 561, 17, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5659, 193, 225, 5, 34, "Input"],
Cell[5887, 200, 835, 26, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6759, 231, 177, 4, 30, "Input"],
Cell[6939, 237, 962, 33, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7938, 275, 180, 4, 34, "Input"],
Cell[8121, 281, 760, 25, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8918, 311, 226, 6, 57, "Input"],
Cell[9147, 319, 379, 12, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9563, 336, 200, 5, 57, "Input"],
Cell[9766, 343, 379, 12, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10182, 360, 199, 5, 55, "Input"],
Cell[10384, 367, 530, 17, 47, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10963, 390, 97, 1, 74, "Section"],
Cell[11063, 393, 74, 1, 30, "Input"],
Cell[11140, 396, 975, 33, 186, "Input"],
Cell[12118, 431, 509, 15, 50, "Input"],
Cell[CellGroupData[{
Cell[12652, 450, 234, 6, 30, "Input"],
Cell[12889, 458, 200, 6, 47, "Output"]
}, Open  ]],
Cell[13104, 467, 352, 11, 98, "Input"],
Cell[13459, 480, 187, 6, 50, "Input"],
Cell[CellGroupData[{
Cell[13671, 490, 585, 19, 50, "Input"],
Cell[14259, 511, 1491, 42, 86, "Output"]
}, Open  ]],
Cell[15765, 556, 480, 14, 30, "Input"],
Cell[CellGroupData[{
Cell[16270, 574, 153, 3, 30, "Input"],
Cell[16426, 579, 544, 18, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17007, 602, 229, 5, 30, "Input"],
Cell[17239, 609, 1629, 48, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18905, 662, 228, 5, 30, "Input"],
Cell[19136, 669, 1017, 33, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20190, 707, 179, 4, 30, "Input"],
Cell[20372, 713, 4582, 128, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24991, 846, 178, 4, 34, "Input"],
Cell[25172, 852, 1042, 34, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26251, 891, 227, 5, 34, "Input"],
Cell[26481, 898, 1059, 35, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27577, 938, 1198, 34, 50, InheritFromParent],
Cell[28778, 974, 145, 3, 30, "Output"],
Cell[28926, 979, 145, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29108, 987, 1036, 26, 50, "Input"],
Cell[30147, 1015, 189, 3, 47, "Output"],
Cell[30339, 1020, 237, 5, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30613, 1030, 980, 25, 50, "Input"],
Cell[31596, 1057, 94, 1, 30, "Output"],
Cell[31693, 1060, 112, 2, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31842, 1067, 979, 25, 50, "Input"],
Cell[32824, 1094, 116, 2, 47, "Output"],
Cell[32943, 1098, 198, 5, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33178, 1108, 580, 16, 54, "Input"],
Cell[33761, 1126, 136, 3, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33934, 1134, 204, 4, 30, "Input"],
Cell[34141, 1140, 1192, 38, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35370, 1183, 93, 1, 30, "Input"],
Cell[35466, 1186, 830, 26, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36333, 1217, 465, 14, 50, "Input"],
Cell[36801, 1233, 784, 23, 47, "Output"],
Cell[37588, 1258, 784, 23, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38409, 1286, 1112, 30, 88, "Input"],
Cell[39524, 1318, 308, 9, 47, "Output"],
Cell[39835, 1329, 304, 9, 47, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40188, 1344, 99, 1, 74, "Section"],
Cell[40290, 1347, 74, 1, 30, "Input"],
Cell[40367, 1350, 537, 18, 120, "Input"],
Cell[40907, 1370, 396, 9, 30, "Input"],
Cell[41306, 1381, 291, 7, 54, "Input"],
Cell[41600, 1390, 211, 5, 30, "Input"],
Cell[CellGroupData[{
Cell[41836, 1399, 206, 5, 30, "Input"],
Cell[42045, 1406, 470, 13, 47, "Output"]
}, Open  ]],
Cell[42530, 1422, 348, 10, 30, "Input"],
Cell[CellGroupData[{
Cell[42903, 1436, 123, 2, 30, "Input"],
Cell[43029, 1440, 161, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43227, 1449, 124, 2, 30, "Input"],
Cell[43354, 1453, 300, 9, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43691, 1467, 148, 3, 34, "Input"],
Cell[43842, 1472, 479, 15, 47, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
